10 INPUT "Количество строк ="; M%: IF M% < 1 THEN 10
20 INPUT "Количество столбцов ="; N%: IF N% < 1 THEN 20
30 DIM AR(M%, N%)
40 FOR I=1 TO M%
50 FOR J=1 TO N%
60 PRINT "Элемент "; I; "-й строки, "; J; "-го столбца = ";
70 INPUT AR(I, J)
80 NEXT J, I
90 DIM MAX(N%)  ' Результирующий массив
100 FOR J=1 TO N%
110 MAX(J) = AR(1, J)
120 FOR I=2 TO M%
130 IF MAX(J) > AR(I, J) THEN MAX(J) = AR(I, J)
140 NEXT I, J
150 PRINT "Максимальные значения в столбцах:"
160 FOR I=1 TO N%
170 PRINT MAX(I)
180 NEXT I
190 END